home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Information
/
WebSites
/
Wirenet
/
files
/
Dashboard2.lha
/
Dashboard2
/
AmiTCP
/
bin
/
StopNet
< prev
next >
Wrap
Text File
|
1998-03-27
|
820b
|
39 lines
/*
$VER: StopNet 2.0 (26.3.98)
by Neil Bothwick
*/
address command
loopcount = 6
cr = '0a'x
/* Exit if no stack running */
if ~(show(P,'AMITCP') | show(P,'MIAMI.1')) then exit
/* Warn if online */
'CheckOnline >NIL:'
if RC = 0 then do
if rtezrequest('This will disconnect you!'cr'Are you sure?','_Yes |_No','Quit','rt_reqpos = reqpos_centerscr') = 0 then exit 5
else 'Disconnect'
end
if exists('Wirenet:UserScripts/Stopnet') > 0 then 'Wirenet:UserScripts/Stopnet'
do while loopcount > 0 & show(ports,'MIAMI.1') > 0
address 'MIAMI.1' 'QUIT'
loopcount = loopcount - 1
'wait 2'
end
do while loopcount > 0 & show(ports,'AMITCP') > 0
address 'AMITCP' 'KILL'
loopcount = loopcount - 1
'wait 2'
end
'Wirenet:bin/WirenetPrefs FLUSH'
'FlushLibs >NIL:'
'SetEnv NetState NoNet'